perm filename CNVERT[CRE,BGB] blob
sn#036841 filedate 1973-04-20 generic text, type T, neo UTF8
00100 TITLE CNVERT - CONVERT TV FORMAT OLDE TO NEW - BGB - 16 APR 73.
00200 FLGBGB:-1
00300
00400 SUBR(GETFIL)------------------------------------------------------
00500 BEGIN GETFIL;SETUP FILE SPEC FROM TTY LINE - BGB - 10 DEC 72.
00600 DZM FILNAM↔DZM EXTION↔DZM EXTION+1↔DZM PPPN
00700 OUTSTR[ASCIZ/ FILE = /]
00800 LAC 1,[POINT 6,FILNAM,-1]↔LACI 2,6
00900 INCHWL↔CAIN 15↔GO[INCHWL↔POP2J]↔AOSA(P)
01000 L: INCHWL↔CAIL"a"↔SUBI 40
01100 CAIN"."↔GO[LAC 1,[POINT 6,EXTION,-1]↔LACI 2,3↔GO L]
01200 CAIN"["↔GO[LAC 1,[POINT 6,PPPN,-1] ↔LACI 2,3↔GO L]
01300 CAIN","↔GO[LAC 1,[POINT 6,PPPN,17] ↔LACI 2,3↔GO L]
01400 CAIN"]"↔GO L
01500 CAIN 15↔GO EOL ;END OF THE LINE.
01600 CAIN 12↔GO EOL
01700 CAIG" "↔GO L ;IGNORE GARBAGE.
01800 SOJL 2,L↔SUBI 40↔IDPB 1↔GO L
01900
02000 EOL: INCHWL
02100 SKIPN 1,EXTION↔LAC 1,ARG2↔DAC 1,EXTION
02200 SKIPN FLGBGB↔POP2J
02300 ;BGB'S DEFAULT PROJECT SPECIFICATION.
02400 SKIPN 1,PPPN↔ LAC 1,ARG1↔DAC 1,PPPN
02500 POP2J
02600 BEND;12/10/72------------------------------------------------------
02700
02800 FILNAM: 0 ;FILE NAME.
02900 EXTION: 0 ;EXTENSION.
03000 0
03100 PPPN: 0 ;PROJECT-PROGRAMMER.
00100 ;TVDSKI. TVDSKO.
00200 SUBR(TVDSKI)------------------------------------------------------
00300 BEGIN TVDSKI;INPUT TV PICTURE FROM A DISK FILE - BGB 6 DEC 72.
00400 INIT 1,17↔SIXBIT/DSK/↔0↔HALT
00500 L1: CALL(GETFIL,[SIXBIT/TMP/],[SIXBIT/DATBGB/])
00600 GO[RELEASE 1,↔POP0J]
00700 LOOKUP 1,FILNAM↔GO L1
00800 IN 1,DUMARG↔JFCL
00900 OUTSTR[ASCIZ" EOF.
01000 "]↔ RELEASE 1,↔POP0J
01100 DUMARG: IOWD 24400,HEADER↔0
01200 BEND;12/14/72-----------------------------------------------------
01300
01400 SUBR(TVDSKO)------------------------------------------------------
01500 BEGIN TVDSKO;INPUT TV PICTURE FROM A DISK FILE - BGB 6 DEC 72.
01600 CALL(GETFIL,[SIXBIT/TMP/],[SIXBIT/DATBGB/])↔POP0J
01700 INIT 1,17↔SIXBIT/DSK/↔0↔HALT
01800 ENTER 1,FILNAM↔GO[OUTSTR[ASCIZ/ ENTER FAILED.
01900 /]↔GO .+4]
02000 OUT 1,DUMARG↔JFCL
02100 OUTSTR[ASCIZ" EOF.
02200 "]↔ RELEASE 1,↔POP0J
02300 DUMARG: IOWD 24400,HEAD1↔0
02400 BEND;12/14/72-----------------------------------------------------
00100 SA: CALL(TVDSKI)
00200 LAC[XWD HEADER,HEADER+1]
00300 DZM HEADER
00400 BLT HEADER+9
00500 CALL(TVDSKO)
00600 GO SA
00700
00800
00900 HEAD1: -1
01000 6 ; BITS PER BYTE.
01100 =48 ;WORDS PER LINE.
01200 =20 ;FIRST AND LAST ROW.
01300 =235
01400 =28
01500 =315 ;FIRST AND LAST COL.
01600 XWD -=10368,200
01700
01800 BLOCK =110 ;KARL PINGLE MEMORIAL HOLE.
01900
02000 HEADER: BLOCK =10
02100 BLOCK 24400
02200 EOB: -1
02300
02400 END SA